home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtil-PCSide.lha / ATUtilities-PCSide / basic / ascii.bas < prev    next >
Encoding:
BASIC Source File  |  2000-10-07  |  70 b   |  6 lines
  1. while i$<>chr$(13)
  2.  i$=inkey$
  3.  if i$<>"" then ?asc(i$)
  4. wend
  5. end
  6.